home *** CD-ROM | disk | FTP | other *** search
/ Precision Software Appli…tions Silver Collection 1 / Precision Software Applications Silver Collection Volume One (PSM) (1993).iso / tutor / bt110.exe / PLAYARRY.BAS < prev    next >
BASIC Source File  |  1987-09-29  |  510b  |  19 lines
  1. 10 PLAY "t220"
  2. 20 L$(1) = "l8o1 e "
  3. 30 L$(2) = "l8o1 g "
  4. 40 L$(3) = "l8o1 f "
  5. 50 H$(1) ="l32o3 defgab o4 cd"
  6. 60 H$(2) ="l32o4 edc o3 bagfe"
  7. 70 H$(3) = "l32 o3 dc o2bagfed"
  8. 80 H$(4)= "l32 o2 cdefgab o3c"
  9. 90 FOR K = 1 TO 3
  10. 100 IF K = 3 THEN PLAY "t220" ELSE PLAY "t180"
  11. 110 FOR I = 1 TO 12
  12. 120 IF K = 1 OR K = 3 THEN PLAY L$((I MOD 3)+1)
  13. 130 IF K = 2 OR K = 3 THEN PLAY H$((I MOD 4)+1)
  14. 140 IF INKEY$ > "" THEN 180     ' quit as soon as any key is pressed
  15. 150 NEXT
  16. 160 NEXT
  17. 170 GOTO 90
  18. 180 END
  19.